<%'Mandatory Includes%>
<%
If UCase(Request.ServerVariables("REQUEST_METHOD")) = "GET" Then
Session("EMail_Form_Hyperlink") = "http://www.keepgoing.org" & Request.QueryString("URL")
End If
If UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" Then
Dim myMail
Dim iConf
Dim HTML
Dim EmailAddressTo
Dim EmailAddressFrom
Dim EmailMessage
Dim HyperLink
Const cdoSendUsingPickup = 1
HyperLink = Session("EMail_Form_Hyperlink")
HyperLink = LTrim(HyperLink)
HyperLink = RTrim(HyperLink)
EmailAddressTo = Request.Form("EmailAddressTo")
EmailAddressFrom = Request.Form("EmailAddressFrom")
EmailMessage = Request.Form("EmailMessage")
Set myMail = CreateObject("CDO.Message")
Set iConf = myMail.Configuration
iConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
iConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\Program Files\Exchsrvr\mailroot\vsi 1\Pickup"
iConf.Fields.Update
myMail.From = EmailAddressFrom
myMail.To = EmailAddressTo
myMail.Subject = "Thought you might be interested in this."
HTML = ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "Thought you might be interested in this."
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & EmailMessage & "
"
HTML = HTML & "Click here to pick it up: "
HTML = HTML & "" & HyperLink & " "
HTML = HTML & "(or copy and paste the above address into your browser.)
"
HTML = HTML & "COME CHECK US OUT AT: http://www.keepgoing.org."
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
myMail.HTMLBody = HTML
myMail.Send
Set myMail = Nothing
Response.Redirect(HyperLink)
End If
%>
The Farm Website